Según planteas la pregunta parece que quieres saber cómo borrar una tabla desde el mismo Acces, lo cual es tan simple como seleccionar la tabla y pulsar la tecla [Supr] o [Del].
Como no creo que sea eso lo que te crea dificultad, interpreto que quieras decir borrar la tabla desde Visual Basic. Si fuera así, te adjunto el ejemplo que proporciona el MSDN de Visual, del que posiblemente no dispongas:
Sub TableDefX()
Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim tdfBucle As TableDef
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase "Neptuno.mdb")
' Crea un objeto TableDef nuevo, anexa los objetos
' Field a la colección Fields y anexa el objeto
' TableDef a la colección TableDefs del objeto Database.
Set tdfNuevo = dbsNeptuno.CreateTableDef("NuevoTableDef")
tdfNuevo.Fields.Append tdfNuevo.CreateField("Fecha", dbDate)
dbsNeptuno.TableDefs.Append tdfNuevo
With dbsNeptuno
Debug.Print .TableDefs.Count & _
"TableDefs en " & .Name
' Enumera la colección TableDefs.
For Each tdfBucle In .TableDefs
Debug.Print " " & tdfBucle.Name
Next tdfBucle
With tdfNuevo
Debug.Print "Propiedades de " & .Name
' Enumera la colección Properties del objeto
' TableDef nuevo, sólo imprime las propiedades con valores no vacíos.
For Each prpBucle In .Properties
Debug.Print " " & prpBucle.Name & " - " & _
IIf(prpBucle = "", "[vacío]", prpBucle)
Next prpBucle
End With
' Elimina el TableDef nuevo ya que esto es un ejemplo.
.TableDefs.Delete tdfNuevo.Name
.Close
End With
End Sub
Y si tampoco es esto, pues... ya dirás...
Saludos y suerte
